Analysis of GOT Series

exercise, part of the course cma (mainly based on Laube (2014))

Abstract

This Document gives a brief overview over some houses of the GOT series (Section 1) and an short Analysis (Section 2) of the top 10 characters with the most screentime

1 Overview Houses of GOT Series

See Coat of Arms of different Houses in Figure 1

(a) House Baratheon

(b) House Arryn

(c) House Baylish

(d) House Bolton

Figure 1: A collection of different coats of arms from the book ‘A song of Ice and Fire’, created by dezzzart published on deviantart.com

2 Analysis

See Table 1 for top 10 characters with the most screen time

2.1 Screen time per Character

pacman::p_load("readr","ggplot2","dplyr","ggrepel","knitr")

screentimes <- read_delim("GOT_screentimes_1.csv")

Rows: 191 Columns: 6
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (4): name, imdb_url, portrayed_by_name, portrayed_by_imdb_url
dbl (2): screentime, episodes

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

screentimes |> str()

spc_tbl_ [191 × 6] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
 $ name                 : chr [1:191] "Tyrion Lannister" "Jon Snow" "Daenerys Targaryen" "Cersei Lannister" ...
 $ imdb_url             : chr [1:191] "http://www.imdb.com/character/ch0146096/" "http://www.imdb.com/character/ch0155777/" "http://www.imdb.com/character/ch0158597/" "http://www.imdb.com/character/ch0159526/" ...
 $ screentime           : num [1:191] 293 268 221 201 199 ...
 $ episodes             : num [1:191] 54 49 49 52 47 47 43 39 37 42 ...
 $ portrayed_by_name    : chr [1:191] "Peter Dinklage" "Kit Harington" "Emilia Clarke" "Lena Headey" ...
 $ portrayed_by_imdb_url: chr [1:191] "http://www.imdb.com/name/nm0227759/" "http://www.imdb.com/name/nm3229685/" "http://www.imdb.com/name/nm3592338/" "http://www.imdb.com/name/nm0372176/" ...
 - attr(*, "spec")=
  .. cols(
  ..   name = col_character(),
  ..   imdb_url = col_character(),
  ..   screentime = col_double(),
  ..   episodes = col_double(),
  ..   portrayed_by_name = col_character(),
  ..   portrayed_by_imdb_url = col_character()
  .. )
 - attr(*, "problems")=<externalptr> 

screentimes |> summary()

     name             imdb_url           screentime         episodes    
 Length:191         Length:191         Min.   :  1.150   Min.   : 2.00  
 Class :character   Class :character   1st Qu.:  4.375   1st Qu.: 4.00  
 Mode  :character   Mode  :character   Median : 10.300   Median : 7.50  
                                       Mean   : 27.261   Mean   :12.44  
                                       3rd Qu.: 27.650   3rd Qu.:17.00  
                                       Max.   :293.300   Max.   :54.00  
                                                         NA's   :15     
 portrayed_by_name  portrayed_by_imdb_url
 Length:191         Length:191           
 Class :character   Class :character     
 Mode  :character   Mode  :character     
                                         
                                         
                                         
                                         

screentimes_high <- screentimes |> top_n(10, screentime)

screentimes |> 
  ggplot(aes(screentime, episodes)) +
  geom_point() +
  geom_text_repel(data = screentimes_high,aes(label = name),min.segment.length = 0)

Warning: Removed 15 rows containing missing values or values outside the scale range
(`geom_point()`).

screentimes_high |> 
  select(name,screentime,episodes) |> 
  kable()

Table 1: Top 10 Characters with the most Screentime

name	screentime	episodes
Tyrion Lannister	293.30	54
Jon Snow	268.15	49
Daenerys Targaryen	221.30	49
Cersei Lannister	201.45	52
Sansa Stark	199.30	47
Arya Stark	189.15	47
Jaime Lannister	162.30	43
Theon Greyjoy	123.30	39
Samwell Tarly	121.45	37
Jorah Mormont	117.30	42

3 References

Laube, Patrick. 2014. Computational Movement Analysis. 2014th ed. SpringerBriefs in Computer Science. Cham: Springer International Publishing AG.